﻿Public Class LandschaftstexturNebel
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "NEBEL"
        Landschaftsname = "NEBEL"
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.CommanderWars2, CommanderWarsGameModi.AdvanceWarsDC
                Deckung = 1
            Case Else
                Deckung = 0
        End Select
        Gross = True
        Frame = False
        Tarnung = True
        KP = -1
        TexturenLaden(New String() {"Nebel+N+O+S+W"})
        Normal = -1
        Ausrichtungslandschaften = New String() {"SEE", "STRAND", "RIFF", "BRUECKE", "ZUGBRUECKE", "BAUBRUECKE", "RAUESEE", "NEBEL"}
        UebergaengeLaden("Kueste")
    End Sub

    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean
        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, 0, 0, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Function BildID(ByVal X As Integer, ByVal Y As Integer, ByVal Spielfeld As ObjektSpielfeld, Optional ByVal Untergund As Boolean = False) As Integer
        Dim Bild As Integer = MyBase.BildID(X, Y, Spielfeld)
        If Bild >= 0 Then
            Return Zufallszahl(0, Texturen.Length - 1)
        Else
            Return Bild
        End If
    End Function

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub

    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"SEE"}
    End Function
End Class